home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 94 / 64er_Magazin_Sonderheft_94_19xx_Markt__Technik_de_Side_A.d64 / turtle-demo 5 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  408b  |  21 lines
  1. 1 rem turtle-demo: 'schnee'
  2. 2 rem n. heusler 11.91
  3. 3 :
  4. 10 sys49152
  5. 20 input"iterationstiefe   3[157][157][157]";it:ifit>4then20
  6. 30 !graphics:!init:le=160
  7. 40 !pen0:!move(320-le)/2,150:!angle330:!pen1
  8. 50 gosub100:!turnr120:gosub100:!turnr120:gosub100
  9. 60 poke198,.:wait198,1:poke198,.:end
  10. 100 ie=ie+1:ifie>itthen:!walkle:goto200
  11. 110 !pushle:le=le/3
  12. 120 gosub100
  13. 130 !turnl60
  14. 140 gosub100
  15. 150 !turnr120
  16. 160 gosub100
  17. 170 !turnl60
  18. 180 gosub100
  19. 190 !pullle
  20. 200 ie=ie-1:return
  21.